/* FD macro to show memo window 
**
**  by Brian Gragg
**  $VER: ShowMemo V1_0 05-25-95
**
**  To use, select a memo cell and activate this macro,
**  preferably by a function key.  The memo window will
**  open.  If a row or column is selected or the cell is
**  not a memo cell, the screen will flash.
**
*/

OPTIONS RESULTS

/* Get the current selection */
'SelectionInfo'
PARSE VAR RESULT selType selCol selRow selBeg selEnd

if (selType='CELL') then do
	/* a single cell is selected */
	'GetColumnId POSITION 'selCol
	ColID = RESULT
	
	'GetColumnDef 'ColID' TYPE'  /* get the type of cell into RESULT */
	if RESULT = "Memo" then do
		'ShowMemoWindow'
		exit
		end
	end

/* If not a single memo cell, flash the screen */
'ScreenToBack'
'ScreenToFront'
